home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / modula2 / module / cjartest.mod < prev    next >
Encoding:
Text File  |  1995-11-25  |  448 b   |  19 lines
  1. MODULE  CJarTest;
  2. FROM CookieJar IMPORT Cookie,CreateCookie,NewCookie,RemoveCookie,
  3.                       GetCookie,CookieSize,PrintCookieJar;
  4.  
  5. VAR c : Cookie;
  6.     ok :BOOLEAN;
  7.     co : ARRAY [0..3] OF CHAR;
  8. BEGIN
  9.     co := 'MYCO';
  10.     CreateCookie(c,'MYCO',1234D);
  11.     PrintCookieJar;
  12.     ok:=NewCookie(c);
  13.     IF GetCookie(c) THEN
  14.       PrintCookieJar;
  15.       RemoveCookie(co);
  16.       PrintCookieJar;
  17.     END(*IF*);
  18. END CJarTest.
  19.